home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / assemblr / library / asm_kit / circle_1.asm < prev    next >
Assembly Source File  |  1983-07-10  |  1KB  |  32 lines
  1. TITLE CALLER - CALLS CIRCLE SUBROUTINE
  2. EXTRN CIRCLE:FAR;external subroutine
  3.  
  4. STACK    SEGMENT PARA STACK 'STACK'
  5.          DB   64 DUP('STACK   ')
  6. STACK    ENDS
  7. CALLER   SEGMENT PARA 'CODE'
  8. START    PROC FAR
  9.          ASSUME CS:CALLER,SS:STACK
  10.          PUSH DS        ;save ret seg on stack
  11.          XOR  AX,AX     ;zero for ret offset
  12.          PUSH AX        ;and save on stack
  13.          MOV  AL,4      ;color/graphics select
  14.          INT  10H       ;set mode
  15.          MOV  AX,160    ;X origin coord
  16.          PUSH AX        ;save on stack
  17.          MOV  AX,100    ;Y origin coord
  18.          PUSH AX        ;save on stack
  19.          MOV  AX,50     ;circle radius
  20.          PUSH AX        ;save on stack
  21.          MOV  AX,5      ;aspect numer
  22.          PUSH AX        ;save on stack
  23.          MOV  AX,6      ;aspec denom
  24.          PUSH AX        ;save on stack
  25.          MOV  AX,1      ;foregrnd color 
  26.          PUSH AX        ;save on stack  
  27.          CALL CIRCLE    ;draw circle 
  28.          RET            ;far ret to DOS  
  29. START    ENDP 
  30. CALLER   ENDS 
  31.          END 
  32.